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DROF DOWN MENUS (QL program) 
by Al Feng 


Most of us have seen them. They generally look good. And, 
no, I’m not talking about the models in the SPORTS ILLUSTRATED’s 
annual "swim suit" issue. I'm referring to DROP-DOWN MENUS and 
POP-UF WINDOWs. In the former instance, the menu windows appear 
to DROF DOWN (get it?) from a COMMAND LINE located near the top 
of the screen. In the latter case, they're more like dandelions 
which POP UF in an otherwise green lawn, often appearing in a 
rather hap-hazard fashion. In either Case, you are generally 
Presented with a limited number of immediately accessible 
options from which you may choose. 


The reason that many programs do NOT use drop-down or pop-up 
windows is simply because circumstances don‘t always warrant it. 
A simple BOOT program only has to EXECute the principal program. 
In other cases, there may only be two or three options. On the 
other hand, a reason to use multiple menus might be to present 
the end-user with "types" of options which have been segregated 
(grouped) by the program(mer). 


One of the many nice features about the OL is the ability to 
create multiple WINDOWs. However, the direct ability to create 
multiple WINDOWS is not necessary for generating a screen with 
drop-down menus, it just makes it a bit easier. The alternative 
would be to use the QL's BLOCKing abilities (’BLOCK’ is used in 
this program merely to CLEAR the menuts) from the screens but it 
could just as easily be implemented for the actual menus). 


The "opening screen" will present you with a "white" screen 
with a command line near the top similar to the illustration 
(below). The following program has three drop-down windows. When 
this screen is first seen, "FILES" will be highlighted with a 
colored bar, and the letters of the option name in white. 
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pressing the ‘TAB’ key or using a ‘shift Top: key combination, 


The "FILES" menu allows for individual LOADing of any of the 
Psion Business programs (eg., Quill, etca), or initiating a 
muiti-TASKing environment (in this instance, TASKMASTER). The 
"OPTIONS" menu is used here as a "help" page. "PRINTER_INFO" is 
a variation of a routine from the QUANTA library which allows 
for changing the printer dat, 


When you QUIT any of the Psion Programs, you will be returned 
to the opening screen. Froceed as appropriate. 
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You may find, after QUiTing a program, that you have a blank 
screen. If this happens, use a ‘shift FS’ key combination to 
restore the screen. If you use a multi-TASKing environment, you 
should suspend SuperBASIC by pressing ‘esc’ until the CURSOR 
appears otherwise, SuperBASIC will be treated as an active TASK 
by whatever environment you are in and slow the screen, et al, 
of the other EXEC'd tasks (Type "START" to re-start.) 
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DROP-—DOWN MENUS--—-part 11511=70 


100 
110 
120 


130 


140 


aime 


150 
160 


170 
180 


WINDOWHO, 450,52, 42, 2001 PAPER#O, 7: INK#O,0 

WINDOWH1, S12, 256, 0, O:PAPER#1,7: INK#1,0:CLS 

WINDOWHS, 312, 256, 0,0: PAPER#2, 7: INK#2, O 

REMark ss=RESPR (10070) 3 LBYTES Zilpi zip _code,ss:CALL ss: 
SCROLL 20 

REMark ram=RESPR (5120) 2: LBYTES flip1_dram_code, ram: CALL 


FRINT#O, "Dynamic RAM Disking" 

REMark tk=RESPR (6144) :LBYTES fipi_turbo_code,tk:CALL tk 
REMark base=RESPR (43992) :LBYTES Tipi boot rext,base: CALL 
base: HOTEEY 

DIM printi$(12),print2$(12),print3$ (12) ,dev$(g) 


devé="flpi_"“:PROGram$="QLUSTer": VERsion$="4r089"s: fenetre=0: 


190 


CLS: CLS#2:Start 
DEFine PROCedure Start:CLS:INK oO 


200 LINE 0,96.5 TO 512,96.5 


210 
220 
230 
240 
JRO 
260 
270 
275 


CMD LINE 

LINE 0,92 TO 512,92 

BEEF 200,20: FILE 

END DEFine Start 

DEFine FROCedure CMD_LINE 
Ebytes=(PEEK_L (163856) -PEEK_L (163852)-1024)/1024 
AT 1,7:STRIF 7: INK oO 

PRINT" FILES OPTIONS PRINTER INFO ms 280 INK 


SPRINT, 4,7 @ PLATYPUS Software": INK O 


270 
200 
S10 
ZO 
TAD 
340 
A0 
300 
270 
380 
390 
400 
410 
ADO 
430 
440 
450 
460 
470 


ore 
if D 


480 
490 
300 
310 


END DEFine CMD_LINE 

key3iPickOneO0fTheseOptions 

DEFine PROCedure keyi 

REPeat key 

keystrike=CODE (INKEYS) 

keystrike=69 THEN EXIT key 

IF keystrike=101 THEN EXIT key 

IF keystrike=232 THEN EXIT key 

IF keystrike=236 THEN EXIT key 

IF keystrike=240 THEN EXIT key 

IF keystrike=244 THEN EXIT key 

IF keystrike=248 THEN EXIT key 

IF keystrike=250 THEN EXIT key 

IF keystriket236 AND keystrike?116 THEN BEEF 900, 40: Keys 
IF keystrike=116 OR keystrike=84 THEN EXIT key 

IF keystrike<116 AND keystrike>84 THEN BEEF 900, 40: Keys 
IF keystrike<84 AND keystrike??7 THEN BEEP 700, 401 Keys 
IF keystrike=253 OR keystrike=9 THEN EXIT key 

IF keystrike=27 THEN CLS:BEEF 900,20:STRIF 7: INE O:AT 


| 
| 
| 
| 
| 
| 
| 
PRINT’@ PLATYPUS Software’:EXIT key | 
END REPeat key:END DEFine Key3 
DEFine PROCedure FickOneOfTheseOptions 
IF keystrike = 250 THEN BEEP 900,20:Start 
IF keystrike = 233 THEN BEEP 900,20:PrevWindow 
| 
| 
f 
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320 IF keystrike = 9 THEN BEEF 200, 10:NextWindow 

320 END DEFine PickOne0fTheseOptions 

340 DEFine FROCedure NextWindow 

3390 BLOCK 500, 200,0, 21,7: fenetre=fenetreti:IF fenetre=3 THEN 
fenetre=0 

360 Windowlhoice 

370 END DEFine NextWindow 

280 DEFine FROCedure PrevWindow 

370 BLOCK 3500,200,0,21,7: fenetre=fenetre-1:11F fenetre<O THEN 
fenetre=2 

600 WindowChoice 

610 END DEFine PrevWindow 

620 DEFine PROCedure WindowChoice 

630 IF fenetre O THEN FILE 

640 IF fenetre 1 THEN OFTIONS 

650 IF fenetre 2 THEN PRINTER 

660 END DEFine WindowChoice 

670 DEFine PROCedure PRINTER 

680 CMD_LINE: AT 1,26: STRIP S: INK 7:PRINT"PRINTER_INFO" 

690 OPEN#S, scr_220x80a156x20: PAPER#SS, 7: 

700 BORDER#S, 1,0: INKE#S, Os CLSO#5 

710 print1$="PR2300": print2$="IBM.WS":prints$="PRe2300" 

720 STRIP#S, S:PRINT#HS, TO S: "Select 

SHS, 7EPRINT#HS, "Quills: 

INE #5,0:PRINT#S, "printer driver ":STRIF #5,7:INK #5,90 
730 PRINT#S,\" [F1] "hprint2$&" / single sheet" 


HH H 


Mm 
zZ 
ka 
ES 


740 PRINTES, © CF2] = "&print3$&" / single sheet" 
730 PRINT#S, ©" [F3] = "£printi$2" / continuous feed" 


760 INEJ, S:PRINTRS, VU CFS] = What_WNas_That_Printer_dat?", 
770 Key3rFPickOne0fThese0ptions 

780 SELect ON keystike 

790 =248; PAPERS, O: CL Gär FRINT Ap, TO 8; "CaNyoUReaDTHiS?"s: INK 


¿PRINTORGANANMANAN TO 63"HIT <Any Keyt to CONTINUE": COPY 
"printer_dat" TO con_220x58a158x30: BEEP 


200, 20: PAUSE: PRINTER 
800 =232:DELETE dev$%"printer_dat": COPY devéiprint2é&" dat" 


TO 
davéi"printer_ dat" 
810 =236: DELETE dev$&"printer_dat":COFY devékprinti$" alt" 
TO 
devée"printer_dat" 
820 =240: DELETE dev$&"printer_dat": COFY devé&printis&" dat" 
TO 


| 
| 
devét"printer_dat" | 
30 END SELect | 
840 END DEFine PRINTER | 
860 DEFine PROCedure FILE | 
870 CMD_LINE:AT 1,7:STRIP S:INK 7:PRINT" FILES " 
880 OFEN#4, scr_106x 132042201 PAPERH6, 7 | 
885 BORDER#G, 1,0: INK#46, O:CLS#6 | 
890 PRINTH6,\" [F1] = Quill" | 
900 PRINT#6,\" [F2] = Archive" | 
| 
| 
a 
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920 
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PRINT#6,\" [F3] 
PRINT#HG,\" [F4] Easel" 

PRINT#HS,\" [F3] "sr INK#6, 37:PRINT#6, FROG amS 
STRIP#6, 5: INE#6, 2: PRINTHS, d 


Abacus" 
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(ñ C's: INE#6, 73 PRINTH6, "E's s INE 
> Ho, A :PRINTRO, "3%: INK#S, O:PRINT#6, "ditor 7 


930 STRIFH#S, Os INERO, 2sFPRINTHS," [gs INE#S, 72 FP RINTHS, "T": 
INEHO, 2 
¿PRINTREOS, "J" 2 INK#6, St PRINTHS, "askMaster d 
960 EeyirPickOne0fTheseOptions 
970 YourChoice=keystrike 
980 SELect ON YourChoice 
990 =BIS:EXEC_W devéei"quill":60 TO 170 
1000 =2236:EXEC_W devétt"archive":60 TO 170 
1010 =240:EXEC_W dev$k"abacus":60 TO 170 
1020 =244:EXEC_ WN devét"easel":60 TO 170 
1030 =248:EXEC_WN devS$2FROGram$2VERsion$:60 TO 170 
1040 = 69:editor:GO TO 170 
1030 =10lseditor:GO TO 170 
1060 = 84: TASK bot 
1070 =116: TASK bot 
1080 END SELect: END DEFine FILE 
1100 DEFine FROCedure editor:EXEC dev$&"editor":END DEFine 
1110 DEFine FROCedure OPTIONS 
1120 CMD LINE: AT 1,15:STRIP Si INK 7:FRINT" OPTIONS " 
A 1130 OPEN#7, scr 172x112 afOx 20: FAFERH7, 7 
í 1135 EORDER+7, 1,0: INE#7, 7: CLSH7 
1140 STRIP#7, O:AT#7, 0, 14: PRINTS, " "3 AT87,0,02 PRINT 
$7, TO 
73EKbytes;" Kilobytes "3:STRIPH7,7 
1130 INK#7,O:PRINT#H7, AN" EXEC_Ws "3: INK#7 ,2: FRINT#H7," Psion 
programs" 
1160 INK $7,2:FRINT #7,T0 12;PROGram$&" " &VERsion#\\TO 
33 "EXEC: 
EDITOR " 
1170 STRIP #7,7: INK 7,0: PRINT #7,\" CHECK: “ss INK #7, 5: 
PRINT 
#7," Printer dat" 
1180 INK #7,7:STRIP #7,5:FRINT #7,\" shftCFSJ"3:INk #7,0: 
PRINT 
#7,": Restore screen "mz 
1190 STRIF#7, 2: INK#7, 7:PRINT#7, \" (esc): QUIT " 
1200 Key3:FickOneOfTheseOptions 
#10 END DEFine OF TIONS 
1220 DEFine PROCedure TASK bot 
1240 REMark ("RENUM 2000" your TASEMASTER BOOT, SAVE IT, and 
d then 
hd MERGE it to the end of the rest of the Program LISTing as 
a 
DEFined FROCedure ... ) 
1290 CALL base+total, basettotal+10000:CLS:Start:END DEFine | 
1300 REMark###*#** @ FLATYFUS Software (1989) SA | 
The various DEFined FROCedures do the following (more or less): | 
Í 


Start 
Clears Screen, calls CMD_LINE procedure 


CMD LINE 
Let establishes COMMAND LINE 
< Keyt 
(indvalidates key inputs 
PickOneOfThese 
Reads key input, selects bar direction 
NextWindow 
moves the highlighted bar to the right 
PrevWdindow 
moves the highlghted bar to the left 
WindowChoice 
interprets NextWindow/FrevWindow and initiates 
appropriate 
DEFined PROCedure 
PRINTER 
allows you to see or change the printer_dat which will 
be 
accessed by Guill 
FILE 
allows you to LOAD various programs 
OPTIONS 
a help page 
T TASK_bot 
— the TASEMASTER BOOT data should be inserted (MERGEd) 
here 


(if you have it). 


Lines 100 to 120 determine WINDOW Size, PAPER & INK color(s). 
Lines 130 to 160 are RESident FRocedures which may be omitted or 
activated from the LISTing as appropriate. Line 170 is also 
optional, and merely establishes the maximum size of various 
strings used. 

Line 180 determines strings/variables. Calls first DEF ined 
PROCedure ("Start"), 

Line 300 initiates the two PROCedures which interpret the key 
inputs. 

If you don’t have a Program editor, then you may omit line 940, 
1040, 1050, 1100 and the last half of line 1160. Of course, you 
Probably use different printers. Rename the specific 

Printer datis) as appropriate to your sitiuation (ega, 

DAISY dat, MATRX dat, LASER dat). 


HAPPY TRAILS (and, COMPUTING) TO YOU! N 
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